home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Collection of Tools & Utilities
/
Collection of Tools and Utilities.iso
/
batchut
/
batutl2.zip
/
CHECKING.ASM
< prev
next >
Wrap
Assembly Source File
|
1988-04-20
|
1KB
|
51 lines
TITLE CHECKING 1-17-83 [4-15-88]
;Toad Hall disassembly, tweak
LF EQU 0AH
CR EQU 0DH
;
;INITIAL VALUES : CS:IP 0000:0100
; SS:SP 0000:FFFF
CodeSeg SEGMENT
ASSUME DS:CodeSeg, SS:CodeSeg ,CS:CodeSeg ,ES:CodeSeg
ORG 100H
Checking proc far
JMP SHORT Start
; NOP
;L0103 L015B DR
L0103 dw 0001H ;offset
dw 0050H ;segment
ErrMsg_107 DB 'Errors encountered - breaking batch job.$'
NoErrMsg_130 DB 'No errors - continuing with batch job.$'
Start:
;I don't LIKE returning to DOS this way...
; PUSH DS ;seg for return to batch job
; XOR AX,AX ;ofs 0
; PUSH AX
; LES DH,DWORD PTR L0103 MASM 5.0 won't let you do this
les dx,dword ptr L0103
CMP BYTE PTR ES:[SI],0
JNZ GotError ;got an error
MOV DX,OFFSET NoErrMsg_130 ;'no errors'
MOV AH,9 ;display string
INT 21H
; RET_FAR ; to batch
mov ax,4C00H ;terminate, Errorlevel = 0
int 21H
GotError:
MOV DX,OFFSET ErrMsg_107 ;'errors, breaking batch'
MOV AH,9 ;display string
INT 21H
INT 23H ;return to DOS
Checking endp
CodeSeg ENDS
;
END Checking